home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / gui-elements / radiobuttons.mta next >
Encoding:
Text File  |  1994-12-13  |  1.6 KB  |  47 lines
  1.  
  2. % This sample shows how to
  3. % - Make the VAR-PARAMETER of TEST90 editable
  4. % - Give a set of selections for VAR-PARAMER of TEST90
  5. % you can export OBJ:TEXT90.V to your Application via MFX-Groups
  6. % use <ESC> to exit this sample
  7.  
  8. Malloc(90);
  9. @shortstart( ("test") ("bw") );
  10.  
  11. wdw(TEST 1 6 12 14 ("helpfile.inf") 1 StandardWDW);
  12.  
  13. o(TEST00  S .  0  0 36 1 Remark 1); bg(TEST00 . (" Select a")); eg();
  14. o(TEST01  S .  0  1 36 1 Remark 1); bg(TEST01 . (" Number:") ); eg();
  15.  
  16. o(TEST90  I I  1  3  4 1 Standard 1);
  17.   bg(TEST90 . 0 );  % <----------------- That's what it's all about
  18.   i(m 0);           % Minimum
  19.   i(v 5);           % Default
  20.   i(M 100);         % Maximum
  21.   eg();
  22.  
  23. o(TEST9A L L  1  5  6 1 Secure 1);
  24.   bg(TEST9A . (ptr)OBJ:TEST90.V);  % Pointer to VAR-PARAMETER
  25.   lt(("   1") 1 ("X") (" ") ("="));
  26.   eg();
  27.  
  28. o(TEST9B L L  1  6  6 1 Secure 1);
  29.  :TEST9C L L  1  7  6 1 Secure 1);
  30.  :TEST9D L L  1  8  6 1 Secure 1);
  31.  :TEST9E L L  1  9  6 1 Secure 1);
  32.  :TEST9F L L  1 10  6 1 Secure 1);
  33.  :TEST9G L L  1 11  6 1 Secure 1);
  34.  :TEST9H L L  1 12  6 1 Secure 1);
  35.   bg(TEST9B . (ptr)OBJ:TEST90.V);lt(("   2")   2 ("X") (" ") ("=")); eg();
  36.   bg(TEST9C . (ptr)OBJ:TEST90.V);lt(("   4")   4 ("X") (" ") ("=")); eg();
  37.   bg(TEST9D . (ptr)OBJ:TEST90.V);lt(("   8")   8 ("X") (" ") ("=")); eg();
  38.   bg(TEST9E . (ptr)OBJ:TEST90.V);lt(("  10")  10 ("X") (" ") ("=")); eg();
  39.   bg(TEST9F . (ptr)OBJ:TEST90.V);lt(("  20")  20 ("X") (" ") ("=")); eg();
  40.   bg(TEST9G . (ptr)OBJ:TEST90.V);lt(("  50")  50 ("X") (" ") ("=")); eg();
  41.   bg(TEST9H . (ptr)OBJ:TEST90.V);lt((" 100") 100 ("X") (" ") ("=")); eg();
  42.  
  43. ng( KEY ("TEST:27.0")); c( K ("Exit();") ); eg(); /* ESC:Zurueck */
  44.  
  45. End();
  46.  
  47.